home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
tx072291.zip
/
TEXLSDMO.PRG
< prev
next >
Wrap
Text File
|
1991-07-22
|
3KB
|
101 lines
*:*********************************************************************
*:
*: Program: TEXLSDMO.PRG
*:
*: System: Texas Associated Software Laser Library
*: Author: Jose E. Lopez, Jr.
*: Copyright (c) 1991, Texas Associated Software - Red Oak, TX
*:
*:*********************************************************************
CLEAR SCREEN
SET CURSOR OFF
SET COLOR TO B/B
@ 01, 01, 24, 30 BOX SPACE(09)
SET COLOR TO W/W
@ 01, 31, 12, 80 BOX SPACE(09)
SET COLOR TO R/R
@ 13, 31, 24, 80 BOX SPACE(09)
SET COLOR TO W/N
_frame = CHR(218)+CHR(196)+CHR(191)+CHR(179)+CHR(217)+CHR(196)+CHR(192)+CHR(179)+CHR(32)
@ 06, 20, 20, 58 BOX _frame
@ 10, 25 SAY 'Welcome to the TexAS Laser '
@ 11, 25 SAY 'Printer Library. You can add '
@ 12, 25 SAY '"Desktop Publishing" quality '
@ 13, 25 SAY 'to your reports and documents.'
@ 14, 25 SAY 'The Library will give you '
@ 15, 25 SAY 'complete control over the '
@ 16, 25 SAY 'printer and your output. '
INKEY(10)
@ 08, 25 SAY 'Print the following examples '
@ 09, 25 SAY 'to see a few of the ways we '
@ 10, 25 SAY 'use the Library. Please look '
@ 11, 25 SAY 'at the demo code to see how '
@ 12, 25 SAY 'simple the functions are to '
@ 13, 25 SAY 'use. After using the Library, '
@ 14, 25 SAY 'you will want all your users '
@ 15, 25 SAY 'to get laser printers. '
@ 16, 25 SAY ' '
@ 18, 27 SAY 'Press any Key to Continue'
INKEY(0)
@ 05, 10, 21, 68 BOX _frame
@ 06, 29 SAY "Press <esc> to exit"
SET MESSAGE TO 20 Center
DO WHILE LASTKEY() != 27
@ 08, 14 PROMPT "Print Welcome to Demo"
@ 09, 14 PROMPT "Print Invoice "
@ 10, 14 PROMPT "Print Labels "
@ 11, 14 PROMPT "Print Patterns "
@ 12, 14 PROMPT "Print Shading "
@ 13, 14 PROMPT "Print Graph "
@ 14, 14 PROMPT "Print Available Fonts"
@ 15, 14 PROMPT "Print Bar Codes " MESSAGE "Print 3 of 9 Barcodes"
@ 16, 14 PROMPT "Print Scalable Fonts " MESSAGE "Print on HP LaserJet III only"
@ 17, 14 PROMPT "Print HCFA1500 Forms " MESSAGE "Print on HP LaserJet III only"
@ 18, 14 PROMPT "Print Calendar "
@ 08, 41 PROMPT "Print Envelope "
MENU TO _choice
DO CASE
CASE _choice = 0
EXIT
CASE _choice = 1
txinit()
txgraphic(0, 0, "initial.fnt", 1)
txmacexec(1)
txclear()
CASE _choice = 2
DO txinvoic
CASE _choice = 3
DO txlabels
CASE _choice = 4
DO txpatter
CASE _choice = 5
DO txshade
CASE _choice = 6
DO txgraph
CASE _choice = 7
DO txfonts
CASE _choice = 8
DO txbarcod
CASE _choice = 9
DO txscales
CASE _choice = 10
DO txinsure
CASE _choice = 11
DO txclndar
CASE _choice = 12
DO txenvelp
ENDCASE
ENDDO
SET CURSOR ON
*: EOF: TEXLSDMO.PRG